home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / lib / X11 / init_tclMotif.tcl < prev    next >
Text File  |  1995-07-17  |  941b  |  37 lines
  1. # 
  2. # This init file redefines the "unknown" command so that
  3. # it will use pattern-matching like that of Xt for commands.
  4. # This allows use of shorter widget names e.g. *myBtn
  5. # Commands that are not abbreviations this way are passed
  6. # onto the old unknown. To allow for a stack of "unknown"
  7. # commands, unknowns are relabelled unknown.old, unknown.old.old, etc
  8. #
  9.  
  10. global tclMotif_unknown
  11.  
  12. set tclMotif_unknown "unknown"
  13.  
  14. while {[info commands $tclMotif_unknown] != ""} {
  15.     set tclMotif_unknown $tclMotif_unknown.old
  16. }
  17.  
  18. rename unknown $tclMotif_unknown
  19.  
  20. proc unknown {name args} {
  21.     global tclMotif_unknown
  22.  
  23.     set cmds [info commands $name]
  24.     set len [llength $cmds]
  25.     if {$len == 0} {
  26.     # no match, pass to old unknown
  27.     set cmd "uplevel 1 $tclMotif_unknown $name $args"
  28.     eval $cmd
  29.     }
  30.     if {$len > 1} {
  31.     error "non-unique command \"$name\" matches \"$cmds\""
  32.     }
  33.  
  34.     # unique abbreviation:
  35.     return [uplevel $cmds $args]
  36. }
  37.